home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / D&CFORM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.0 KB  |  36 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '*****************   DEBIT/CREDIT INPUT WORK FORM  *************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                      DEBIT CREDIT WORK SHEET                            OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    This basic form can be used with WORKFILE.BAS as a manual D & C      OPEN 24 'OPEN entry worksheet. When the program is run, you will be queried as to     OPEN
  7. 26  'OPEN the number of copies desired. Make certain the printhead is over the    OPEN
  8. 28  'OPEN perforation and the printer is on line before responding to the number  OPEN
  9. 30  'OPEN question. While the format for the form is for expenditures it may be   OPEN
  10. 32  'OPEN modified easily by changing the headings and changing the spacing in    OPEN
  11. 34  'OPEN the print lines (LINE 160 -- SPACING) which actually generate the form. OPEN
  12. 36  'OPEN                       (c) G I N A C O - 1983          Ver 5.2/160/320   OPEN
  13. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  14. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  15. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  16. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  17. 100  KEY OFF
  18. 110  CLS:LOCATE 10,30:INPUT"HOW MANY COPIES ",N
  19. 120  WIDTH "LPT1:",80
  20. 125  FOR NUMBER = 1 TO N
  21. 130  LPRINT STRING$(4,10)
  22. 140  LPRINT TAB(30)"DEBIT CREDIT WORKSHEET"
  23. 150  LPRINT CHR$(27)"U"+CHR$(1);
  24. 160  LPRINT STRING$(80,42);
  25. 170  LPRINT" REF    DATE     CHECK#      DESCRIPTION      TO/FROM        D#    C#   AMOUNT";
  26. 180  LPRINT STRING$(80,45);
  27. 190  FOR I = 1 TO 32
  28. 200  LPRINT"I    I        I           I               I               I     I     I        I";
  29. 210  LPRINT"I____I________I___________I_______________I_______________I_____I_____I________I";
  30. 220  NEXT
  31. 230  LPRINT CHR$(12);
  32. 240  NEXT NUMBER
  33. 250  END
  34. 65000  '************************* SAVE ROUTINE ********************************
  35. 65100  SAVE"B:D&CFORM.BAS"
  36.